! 参数接口传递变量
pure subroutine set_value(ik)
    integer, intent(inout) :: ik

    ik = 1

end subroutine set_value

program main

    implicit none
    integer :: a
    external :: set_value

    call set_value(a)
    print *, a

end program main
